home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / switch.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-21  |  574b  |  36 lines
  1.  
  2. program switch;
  3. { Switching without clearing test, by Bas van Gaalen, Holland, PD }
  4. uses crt;
  5. var key:char;
  6.  
  7. procedure _25lines; assembler;
  8. asm
  9.   mov ax,83h
  10.   int 10h
  11. end;
  12.  
  13. procedure _50lines; assembler;
  14. asm
  15.   mov ax,1202h
  16.   mov bl,30h
  17.   int 10h
  18.   mov ax,1112h
  19.   mov bl,0
  20.   int 10h
  21. end;
  22.  
  23. begin
  24.   writeln;
  25.   writeln(' 0 - quit');
  26.   writeln(' 1 - 25 lines mode');
  27.   writeln(' 2 - 50 lines mode');
  28.   repeat
  29.     key:=readkey; if key=#0 then key:=readkey;
  30.     case key of
  31.       '1':_25lines;
  32.       '2':_50lines;
  33.     end;
  34.   until key='0';
  35. end.
  36.